home *** CD-ROM | disk | FTP | other *** search
/ Let's Explore Space Missions / Let's Explore Space Missions.iso / pc / program / 459dc.dxr / Internal_42.ls < prev    next >
Encoding:
Text File  |  1997-12-04  |  883 b   |  37 lines
  1. on mouseDown
  2.   global gPictNum, gTrackPict
  3.   set gPictNum to gPictNum + 1
  4.   set gTrackPict to gTrackPict + 1
  5.   if gPictNum > 40 then
  6.     set gPictNum to 31
  7.   end if
  8.   if gTrackPict > 10 then
  9.     set gTrackPict to 1
  10.   end if
  11.   set tButtonState to word 2 of the name of member the memberNum of sprite the clickOn of castLib the castLibNum of sprite the clickOn
  12.   case tButtonState of
  13.     "upState":
  14.       hMakeSound("CLICK.AIF", 1)
  15.       if hValidClick01() = 1 then
  16.         hButtonScripts(tButtonState)
  17.       end if
  18.     "rolloverState":
  19.       hMakeSound("CLICK.AIF", 1)
  20.       if hValidClick02() = 1 then
  21.         hButtonScripts(tButtonState)
  22.       end if
  23.   end case
  24.   set the member of sprite 42 to gPictNum
  25.   updateStage()
  26. end
  27.  
  28. on mouseUp
  29.   hMakeSound("CLICK2.AIF", 1)
  30. end
  31.  
  32. on hButtonScripts pButtonState
  33.   if pButtonState = "rolloverState" then
  34.     hUndoButtonRollover()
  35.   end if
  36. end
  37.